home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #4 / utv2n4s2.d64 / vision times ii (.txt) < prev   
Encoding:
Commodore BASIC  |  1988-01-01  |  9.7 KB  |  393 lines
  1. 2 clr
  2. 4 rem data 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  3. 6 bc=198:if fre(1)<>fre(0) then bc=208
  4. 7 rem sa=32768
  5. 8 rem for j=sa to sa+15:read x:poke j,x:next j
  6. 10 poke53280,0:poke53281,0
  7. 12 xr=781:yr=782:pr=783
  8. 14 if bc>200 then xr=7:yr=8:pr=5
  9. 16 er$="                          "
  10. 20 dims(11),s$(11),se$(11),s1(20)
  11. 100 gosub4000
  12. 105 gosub 10000
  13. 107 gosub 21000
  14. 108 gosub 7500
  15. 110 gosub3600
  16. 120 h=0:v=10:tx$="[196]o you need a lesson? "
  17. 130 gosub3200
  18. 135 gosub 7600
  19. 140 lo=0:gosub2100
  20. 150 ifa$="y"ora$="[217]"thengosub20000:goto 160
  21. 151 if a$="n" or a$="[206]" then 160
  22. 152 goto 120
  23. 160 gosub5000
  24. 165 ru=1
  25. 170 gosub1000
  26. 172 ifop<>3then180
  27. 174 gosub3600
  28. 176 gosub500
  29. 180 gosub3600
  30. 190 v=10:tx$="[196]o you want to play again? ([217]/[206]) "
  31. 200 gosub3000:gosub 3200:gosub 7600
  32. 210 lo=0:gosub2100:printa$
  33. 220 ifa$="y"ora$="[217]"thenprinttab(23)"[145]              ":goto 160
  34. 221 if a$="n" or a$="[206]" then 230
  35. 222 goto 190
  36. 230 sys 8*4096+4
  37. 500 v=10:h=0:tx$="[217]ou got"+str$(np-mi)+" right out of"+str$(np) +" problems"
  38. 510 gosub3200
  39. 540 v=12:tx$="for"+str$(int(((np-mi)/np)*100))+"%."
  40. 545 gosub3200:gosub 7600
  41. 550 delay=5:gosub2000
  42. 560 return
  43. 1000 rem *** central routine ***
  44. 1005 hp=0:mi=0
  45. 1010 fori=1tonp
  46. 1020 gosub19000
  47. 1025 gosub 7500:gosub3600
  48. 1030 h=0:v=6:tx$="[198]ind the "+md$+":"
  49. 1035 gosub3200:gosub 7600:if md<>1 then 1065
  50. 1040 gosub 7000
  51. 1050 goto 1066
  52. 1065 onopgosub11000,11000,17000
  53. 1066 v=24:tx$="   <[210][197][212][213][210][206]> to [195]ontinue, <[198]8> to [197]xit [146]"
  54. 1067 gosub3000:gosub3200
  55. 1068 lo=0:gosub2100
  56. 1069 if a$<>"[140]" and a$<>chr$(13) then 1068
  57. 1070 ifa$="[140]"then sa=i:i=np
  58. 1074 nexti:if sa<>0 thennp=sa
  59. 1075 gosub7500:return
  60. 2000 rem *** timer ***
  61. 2010 ti$="000000"
  62. 2015 geta$:ifa$<>""then2030
  63. 2020 ifti/60<delaythen2015
  64. 2030 return
  65. 2100 rem *** get character ***
  66. 2110 poke bc,0
  67. 2115 geta$:ifa$=""then2115
  68. 2117 if a$="[140]" then gosub 7500:goto 180
  69. 2120 a=val(a$):ifa<loora>hithen2115
  70. 2130 return
  71. 3000 rem *** center text ***
  72. 3010 x1=len(tx$)
  73. 3020 h=(40-x1)/2
  74. 3030 return
  75. 3100 v=24:tx$="    <[210][197][212][213][210][206]> to [195]ontinue [146]"
  76. 3110 gosub3000:gosub3200:gosub 7600
  77. 3120 lo=0:gosub2100
  78. 3130 ifa$<>chr$(13) then 3100
  79. 3140 return
  80. 3200 if h<0 then h=0
  81. 3210 poke xr,v:poke yr,h:poke pr,0:sys 65520:print tx$;:return
  82. 3500 rem *** line across screen ***
  83. 3510 print"";
  84. 3520 forq=1to20
  85. 3530 print"[178][178]";
  86. 3540 next
  87. 3550 forq=1to20
  88. 3560 print"[177][177]";
  89. 3570 next
  90. 3575 print"";
  91. 3580 return
  92. 3600 rem *** print screen header ***
  93. 3610 print"[147]"
  94. 3630 tx$="[214][201][211][201][207][206] [211][207][198][212][215][193][210][197] and"
  95. 3640 h=10:v=0:gosub 3200
  96. 3650 tx$="[213]p[212]ime [205]agazine [208]resents:":h=10:v=1:gosub 3200
  97. 3660 tx$=t$
  98. 3665 print"";
  99. 3670 h=10
  100. 3680 v=3:gosub3200
  101. 3685 print"";
  102. 3690 print:gosub3500:return
  103. 4000 rem *** read data ***
  104. 4005 readt$
  105. 4010 fori=1to6
  106. 4020 readrw$(i)
  107. 4030 nexti
  108. 4040 fori=1to3
  109. 4050 readop$(i)
  110. 4060 nexti
  111. 4070 fori=1to4
  112. 4080 readmu$(i),co(i)
  113. 4090 next:return
  114. 4100 rem *** program data ***
  115. 4110 data"[214]ision [212]imes [201][201]"
  116. 4120 data"[199]reat!","[198]antastic!","[211]uper!"
  117. 4130 data"[217]ou're really going now!","[217]es!  [217]es!  [217]es!","[212]hat's great!"
  118. 4140 data"[211]ee examples done."
  119. 4150 data"[196]o problems with help."
  120. 4160 data"[196]o problems yourself."
  121. 4170 data"units",28,"tens",30,"hundreds",31,"thousands",158
  122. 5000 rem *** setup for math ***
  123. 5001 ifru=1then5037
  124. 5010 h=0:v=10:tx$="[215]hat's your first name "
  125. 5020 gosub3200
  126. 5030 mx=16:gosub 11000:na$=te$
  127. 5035 if na$="" then na$="[195]omputer [215]iz"
  128. 5036 ifleft$(na$,1)<"z"thenna$=chr$(asc(left$(na$,1))+128)+right$(na$,len(na$)-1)
  129. 5037 v=10:h=0:tx$="[215]ould you like to:                     "
  130. 5038 gosub3200
  131. 5040 h=7:v=12:fori=1to3
  132. 5050 tx$=str$(i)+". "+op$(i)
  133. 5060 gosub3200
  134. 5070 v=v+2
  135. 5080 nexti
  136. 5090 h=0:tx$="[217]our choice? (1-3) "
  137. 5100 gosub3200
  138. 5110 lo=1:hi=3:gosub2100:printa$
  139. 5120 op=a:hi=10
  140. 5130 ifop=1thenhi=5
  141. 5140 gosub 7500:gosub 3600
  142. 5150 v=10:h=0:tx$="[200]ow many problems do you want"
  143. 5160 gosub3200
  144. 5170 v=11:tx$="to do? (2 -"+str$(hi)+")   [157][157]"
  145. 5180 h=5:gosub3200:gosub 7600
  146. 5190 mx=2:gosub 11000:np=val(te$)
  147. 5200 ifnp<2 ornp>hithen np=0:goto5170
  148. 5210 v=13:tx$="[215]e will use 2 digit and 4 digit":h=0:gosub 3200
  149. 5220 v=14:h=5:tx$="numbers, "+na$+".":gosub 3200
  150. 5260 n1=4
  151. 5310 n2=2
  152. 5390 return
  153. 7000 rem option 1 - multiply
  154. 7010 v=9:h=38-len(se$(1)):tx$=se$(1):gosub 3200
  155. 7020 v=10:h=38-len(se$(2)):tx$=se$(2):gosub 3200
  156. 7025 v=11:h=37-len(se$(1)):tx$="[192][192][192][192][192][192][192][192]":if n1=3 then tx$=left$(tx$,8)
  157. 7030 gosub 3200 : if op=3 then 9000
  158. 7040 vv=0:for ii=3 to 1 step -2 :v=12+vv:h=0
  159. 7043 mu=val(mid$(se$(2),ii,1)): jk=1
  160. 7045 v=12+vv:h=0:tx$="[205]ultiply"+s$(1)+"by"+str$(mu*(10^vv))+".":gosub 3200
  161. 7046 delay=3:gosub 2000
  162. 7047 for jj=n(1)to 1 step-1 : v=18:h=0:tx$=er$:gosub 3200:v=16:gosub 3200
  163. 7048 v=20:gosub 3200
  164. 7049 v=16:h=0:tx$="[205]ultiply the "+mu$(jk)+"."
  165. 7050 gosub 3200:if op=1 then delay=1:gosub 2000
  166. 7054 v=18:h=0:tx$=str$(mu)+" x"+str$(d(jj)):if ca<>0 then tx$=tx$+" +"+ca$
  167. 7055 an=mu*d(jj)+ca:ca=int(an/10) :ca$=str$(ca):an$=str$(an)
  168. 7056 v=18:h=0:tx$=tx$+" = ":if op=1 then tx$=tx$+an$
  169. 7058 gosub 3200:if op=1 thengosub 2000
  170. 7060 vj=12+vv:hj=36-(vv*2)-(jk*2):if ca=0 then hj=hj+1
  171. 7061 if op=1 then 7080
  172. 7065 mx=3:gosub 11000:tt=val(te$)
  173. 7070 if tt=an then gosub 8000
  174. 7080 h=hj:hh=h:tx$=an$:v=vj
  175. 7090 gosub 3200:delay=.3:gosub 2000
  176. 7091 if ca=0 then 7150
  177. 7095 tx$="[195]arry the"+ca$+".":v=20:h=0:gosub 3200
  178. 7100 tx$=""+ca$:v=8:h=hh-1+(vv*2):gosub 3200
  179. 7110 tx$="  ":v=12+vv:h=hh:gosub 3200
  180. 7150 jk=jk+1:delay=3: gosub 2000
  181. 7155 next jj:if ca<>0 thenv=12+vv:h=hh-1:tx$=ca$:gosub 3200
  182. 7160 vv=vv+1:tx$=er$:v=8:h=10:gosub 3200:ca=0:gosub 3100:v=24:tx$=er$
  183. 7165 gosub 3000:   gosub 3200:next ii
  184. 7170 v=12+vv:h=hh-1:tx$="[192][192][192][192][192][192][192][192][192][192][192]"
  185. 7175 if n1>=4 then tx$=tx$+"[192]"
  186. 7180 gosub 3200 :for v=16 to 20 step 2:h=0:tx$=er$:gosub 3200:next v
  187. 7185 v=16:tx$="[206]ow add:":gosub 3200 :if op=1 then 7210
  188. 7190 if op=2 then s$=se$(7):gosub 14000:goto 7240
  189. 7210 v=16:hh=36 :for jj=len(se$(7))-1 to 1 step-2:h=hh:tx$=mid$(se$(7),jj,1)
  190. 7220 gosub 3200:delay=2:gosub 2000:hh=hh-2
  191. 7230 next jj
  192. 7240 return
  193. 7500 poke 53265,11
  194. 7510 rem poke 53296,255
  195. 7520 return
  196. 7600 rem poke 53296,0
  197. 7610 poke 53265,27
  198. 7620 return
  199. 8000 rw=int(rnd(0)*6)+1
  200. 8010 forj=1to2
  201. 8020 v=20:h=5 :tx$=chr$(co(j))+rw$(rw)
  202. 8030 gosub3200
  203. 8040 delay=.3:gosub2000
  204. 8050 tx$=chr$(5)+er$:gosub3200
  205. 8060 delay=.1:gosub2000
  206. 8070 nextj :return
  207. 9000 v=15:h=0 :tx$="[217]our answer: "
  208. 9010 gosub3200
  209. 9020 mx=5:gosub 11000:an=val(te$)
  210. 9030 ifint(an)=int(s(7))then9080
  211. 9040 mi=mi+1
  212. 9050 v=17:tx$="[212]he correct answer is "+s$(7)+"." :h=0
  213. 9060 gosub3200
  214. 9070 goto 9180
  215. 9080 rw=int(rnd(0)*6)+1
  216. 9090 forj=1to5
  217. 9100 v=20:tx$=chr$(co(j))+rw$(rw)
  218. 9110 gosub3000:gosub3200
  219. 9120 delay=.7:gosub2000
  220. 9130 tx$=er$
  221. 9140 gosub3000:gosub3200
  222. 9150 delay=.3:gosub2000
  223. 9160 nextj
  224. 9180 return
  225. 10000 rem *** do spritey things ***
  226. 10010 sa=704:if bc>200 then sa=2816
  227. 10020 for i=sa to sa+63
  228. 10030 readx:pokei,x
  229. 10040 next
  230. 10050 poke2040,11:if bc>200 then poke 2040,44
  231. 10060 poke53287,2:poke53277,255:poke53271,255
  232. 10070 poke53248,30:poke53249,58
  233. 10075 if bc>200 then (NULL) 1,30,58
  234. 10080 return
  235. 10090 data252,252,252,121,249,248,51,243,240
  236. 10100 data7,231,224,15,207,192,7,159,128
  237. 10110 data3,63,0,0,126,0,0,252,0
  238. 10120 data0,120,0,0,48,0,0,0,0
  239. 10130 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  240. 11000 te$="":print"[164]";
  241. 11010 get a$:if a$="" then 11010
  242. 11020 if a$=chr$(13) then printchr$(20):return
  243. 11030 if a$=chr$(20) and te$="" then 11010
  244. 11040 if a$=chr$(20) then te$=left$(te$,len(te$)-1):printa$a$"[164]";:goto 11010
  245. 11045 if a$="[140]" then gosub 7500:goto 180
  246. 11050 if a$<" " or a$>"[218]" then 11010
  247. 11060 if a$>"z" and a$<"[193]" then 11010
  248. 11070 if len(te$)=mx then 11010
  249. 11080 printchr$(20)a$"[164]";
  250. 11090 te$=te$+a$:goto 11010
  251. 14000 rem *** examples with help ***
  252. 14010 v1=16:h1=36:s$=se$(7)
  253. 14020 forj=len(s$)-1 to1step-2
  254. 14030 v=v1+1:h=h1:tx$="^":gosub 3200
  255. 14050 y=0:lo=0:hi=9
  256. 14060 gosub2100
  257. 14070 ifa$=mid$(s$,j,1)then14150
  258. 14080 y=y+1:ify<3then14060
  259. 14090 v=23:tx$="[197]nter a "+mid$(s$,j,1)+" please.[146]"
  260. 14100 gosub3000:gosub3200
  261. 14110 tx$="                  "
  262. 14120 delay=1.5:gosub2000
  263. 14130 gosub3200:goto14060
  264. 14140 :
  265. 14150 v=v1:h=h1:tx$=mid$(s$,j,1)
  266. 14160 gosub3200:v=v1+1:tx$=" ":gosub 3200:h1=h1-2
  267. 14190 nextj
  268. 14210 return
  269. 15000 rem *** examples with help ***
  270. 15010 v1=v:h1=h:t1$=tx$
  271. 15015 s$=tx$
  272. 15020 forj=1tolen(s$)-1step2
  273. 15050 y=0:lo=0:hi=9
  274. 15060 gosub2100
  275. 15070 ifa$=mid$(s$,j,1)then15150
  276. 15080 y=y+1:ify<3then15060
  277. 15090 v=23:tx$="[197]nter a "+mid$(s$,j,1)+" please.[146]"
  278. 15100 gosub3000:gosub3200
  279. 15110 tx$="                  "
  280. 15120 delay=1.5:gosub2000
  281. 15130 gosub3200:goto15060
  282. 15140 :
  283. 15150 v=v1:h=h1+j-1:tx$=mid$(s$,j,1)
  284. 15160 gosub3200
  285. 15190 nextj
  286. 15200 v=v1:h=h1:tx$=t1$
  287. 15210 return
  288. 19000 rem *** math routine ***
  289. 19001 v=23:tx$="[208]lease [215]ait...":gosub3000:gosub3200
  290. 19005 md=1
  291. 19010 n(1)=n1:n(2)=n2:md$="quotient"
  292. 19011 if md=1 then n(1)=n1-1:md$="product"
  293. 19020 forq=1to8:s(q)=0:se$(q)="":nextq
  294. 19030 forq=1to2
  295. 19040 forr=n(q)to1step-1
  296. 19050 di=int(rnd(1)*9)+1
  297. 19060 s(q)=s(q)+di*(10^(r-1))
  298. 19070 next
  299. 19110 next
  300. 19150 s(7)=int(s(1)/s(2))
  301. 19151 if md=1 then s(7)=s(1)*s(2)
  302. 19160 forq=1to7
  303. 19170 s$(q)=str$(s(q)):se$(q)=""
  304. 19180 forr=2tolen(s$(q))
  305. 19190 se$(q)=se$(q)+mid$(s$(q),r,1)+" "
  306. 19200 next
  307. 19210 next
  308. 19215 rem: if md=1 then return
  309. 19220 forq=1tolen(s$(1))
  310. 19230 d(q)=val(mid$(s$(1),q+1,1))
  311. 19240 next
  312. 19245 if md=1 then return
  313. 19300 s1(1)=d(1)
  314. 19310 forq=1ton1
  315. 19320 p=2*(q-1)
  316. 19330 s1(2+p)=s(2)*int(s1(1+p)/s(2))
  317. 19340 s1(3+p)=(s1(1+p)-s1(2+p))*10+d(q+1)
  318. 19350 ifq=n1thens1(3+p)=s1(1+p)-s1(2+p)
  319. 19360 next
  320. 19370 return
  321. 20000 rem *** info info info ***
  322. 20001 gosub 7500:gosub3600:v=6
  323. 20002 readn
  324. 20003 fori=1ton
  325. 20004 readtx$
  326. 20005 iftx$="page"then gosub 3100:gosub 7500:gosub3600:v=6:goto20009
  327. 20006 h=2:ifmid$(tx$,10,1)="[163]"thenv=v+1:gosub3200:goto20009
  328. 20007 v=v+2:gosub3200
  329. 20009 next
  330. 20010 gosub 7600:return
  331. 20011 data42
  332. 20012 data"[212]his program will help you learn"
  333. 20013 data"to do multiplication problems."
  334. 20015 data"[212]here are three ways to use the"
  335. 20016 data"program:","    1) [211]ee examples done"
  336. 20017 data"    2) [196]o problems with help"
  337. 20018 data"    3) [196]o problems yourself"
  338. 20019 data"page"
  339. 20020 data"     1) [211]ee examples done"
  340. 20021 data"        [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  341. 20022 data"[201]f you want to see examples done,"
  342. 20023 data"[201] will show you how to do them,"
  343. 20024 data"explaining each step as [201] go."
  344. 20025 data"page"
  345. 20026 data"   2) [196]o problems with help"
  346. 20027 data"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  347. 20028 data"[212]o do problems with help, [201] will"
  348. 20029 data"give you a hint for each step,"
  349. 20030 data"and help you if you make mistakes."
  350. 20031 data"page"
  351. 20032 data"    3) [196]o problems yourself"
  352. 20033 data"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  353. 20034 data"[212]he third option is to work problems"
  354. 20035 data"on your own.  [198]or this option,"
  355. 20036 data"you may need pencil and paper."
  356. 20037 data"page"
  357. 20038 data"      [211]ize of [206]umbers"
  358. 20039 data"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  359. 20040 data"[212]he [214]ision disk gives a choice of the"
  360. 20041 data"number of digits to work with.",""
  361. 20042 data"[212]his short program will use 4 digit"
  362. 20043 data"numbers with 2 digit multipliers."
  363. 20046 data"page"
  364. 20047 data"     [206]umber of problems"
  365. 20048 data"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  366. 20049 data"[204]ast, you decide how many problems"
  367. 20050 data"to do.  [201]f you let the computer do"
  368. 20051 data"the work, you may only have 5"
  369. 20052 data"problems; otherwise you may have"
  370. 20053 data"from 2 to 10 problems."
  371. 20054 data"page"
  372. 21000 gosub 7500:poke 53269,1:print"[147]"
  373. 21010 h=10:tx$="[214][201][211][201][207][206][160][211][207][198][212][215][193][210][197] and":v=1:gosub 3200
  374. 21020 tx$="[213]p[212]ime [205]agazine [208]resents:":h=10:v=2:gosub 3200
  375. 21040 print:print:gosub 3500
  376. 21050 print"
  377. 21200 [153][163]8)"sys wait    wait  wait * logwait  wait *  waitrnd  waitrnd   "
  378. 21210 [153][163]8)" waitrnd * wait  wait  wait    wait  waitcoslog wait   waitrnd  "
  379. 21220 [153][163]8)"log wait  waitcos  wait log logwait  wait  wait   wait  waitlog waitrnd "
  380. 21230 [153][163]8)"  wait  wait   wait   intwaitget wait  waitrnd* wait  wait log  "
  381. 21240 [153][163]8)" log waitcos   wait log *wait  wait log  waitcos  wait  log "
  382. 21250 [153][163]5)"sys     wait  wait  waitrnd * wait    wait * logwait        "
  383. 21260 [153][163]5)"   wait    wait   waitnew  wait  wait    wait       wait  "
  384. 21270 [153][163]5)"   wait    wait  waitlog waitcos wait   wait  log logwait     wait  wait"
  385. 21280 [153][163]5)"   wait    wait  wait    wait  wait     intwaitget    wait  "
  386. 21290 [153][163]5)"   wait    wait  wait    wait    wait log *wait        "
  387. 21295 [153][163]8)"def(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)def to lenontinue"
  388. 21300 [153]"print# (NULL)ublished by (NULL)oftdisk (NULL)ublishing, right$nc.";
  389. 21305 [151] bc,0:[141] 7600
  390. 21310 [161]a$:[139] a$[178][199](13) [167] [142]
  391. 21320 [139] a$[178]"restore" [167] 230
  392. 21330 [137] 21310
  393.